home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / nos107c / connect.plp < prev    next >
Text File  |  1993-11-30  |  18KB  |  659 lines
  1. /************************************************************************
  2. *    ＮＩＦＴＹ－Ｓｅｒｖｅオンライン･サインアップ通信処理        *
  3. *              presented by    -なる-☆　　（PGA01332）＆    *
  4. *                    Yama-Chan   （PEE01244）    *
  5. *************************************************************************/
  6. var    N1    [2];
  7. var    N2    [2];
  8. var    N31    [2];
  9. var    N32    [2];
  10. var    N33    [2];
  11. var    road1    [20];
  12. var    road2    [20];
  13.  
  14. /*        通信初期情報の設定                */
  15. %init    {
  16.     case    (@tail(MODEM,{00}),
  17.         {m},{rscs({Yes})},/*    RS-CS制御の選択        */
  18.         {n},{rscs({No})});
  19.     click    ({Yes});    /*    クリック音を消す    */
  20.     xon    ({Yes});    /*    ｘ制御無効        */
  21.     ctrl    ({Yes});    /*    ctrlコード有効        */
  22.     esc    ({Yes});    /*    escシーケンス有効    */
  23.     stopbit    ({1});        /*    STOPBIT の設定        */
  24.     parity    ({None});    /*    パリティー なし        */
  25.     lineend    ({CR});        /*    送信行の終わりの処理    */
  26.     dataleng({8bit});    /*    データ長の設定        */
  27.     nattou    ({Yes});    /*    なっとうスクロール有    */
  28.     sendtype({Line});    /*    行単位送信        */
  29.     dispecho({Yes});    /*    送信中エコーバック有    */
  30.     code    ({sjis});    /*    シフトJIS    */
  31.     };
  32.  
  33. %REDIAL        {5};    /*    リダイヤル回数(回)        */
  34. %Wtime1        60;    /*    入力待ち時間(秒)        */
  35. %Wtime2        60;    /*    入力待ち時間(秒)        */
  36.  
  37. /************************************************************************/
  38. /*        共通処理モジュール                    */
  39. /************************************************************************/
  40. %VerLev    {Ｎ.Ｏ.Ｓ. Ver1.07c};
  41.  
  42. %BELL    @xc({07});        /*    ベルコード    */
  43.  
  44. /*    音声メッセージ出力処理        */
  45. %SNDMSG    {
  46.     [file]
  47.     case    (SOUND2={}||SOUND2={\},
  48.         {No},{case(@filechk(SOUND2|file),
  49.             {Yes},{snd(SOUND2|file)},
  50.             {No}, {display(BELL)})},
  51.         {Yes},{display(BELL)}
  52.         );
  53.     };
  54.  
  55. /*    異常切断処理    */
  56. %Abort    { 
  57.     [CommentA]
  58.     display(CommentA);
  59.     SNDMSG({okasi_f.snd});
  60.     display({\n\nあ～ん、強制終了するわヨ☆\n});
  61.     discon;
  62.     };
  63.  
  64. /*    モデム強制切断処理    */
  65. %ModemOff{
  66.     wait(2,{type({+++})});
  67.     wait    (Wtime1,{Abort({\nモデムが切り替わらないよぉ～\n})},
  68.         {OK},{wait(2,{type({ATH0\n})})}
  69.         );
  70.     };
  71.  
  72. /*    異常を検出した場合の処理    */
  73. %AbortOff{
  74.     display({\n\nホストの反応がおかしいよぉ～\n});
  75.     SNDMSG({okasi_f.snd});
  76.     display({\n\nあ～ん、モデムを直接切断するわヨ☆\n});
  77.     ModemOff;
  78.     wait    (Wtime1,{Abort({\n\nモデムからの応答が無いよぉ～\n}|BELL)},
  79.         {OK},{display({\n\nモデムを直接切断したヨン☆\n}|BELL)}
  80.         );
  81.     discon;
  82.     };
  83.  
  84. /*    NIFTY-Serve 切断処理    */
  85. %NIFoff{
  86.     footnote({ＮＩＦＴＹ-Ｓｅｒｖｅ 切断処理中,,,♪});
  87.     display({\n\n☆登録処理を中止します☆\n}|BELL);
  88.     type({3\n});
  89.     wait    (Wtime1,
  90.         {display({\n\nホストが受け付けないよぉ～\n});AbortOff;},
  91.         {\n01+},{ModemOff},
  92.         {\n*},    {type({OFF\n})}
  93.         );
  94.     wait    (Wtime1,
  95.         {display({\n\n回線が切れないよぉ～\n});AbortOff;},
  96.         {NO CARRIER},{display({\n\n ROAD2 の切断処理完了\n})},
  97.         {OK},{display({\n\n ROAD1 の切断処理完了\n})}
  98.         );
  99.     discon;
  100.     };
  101.  
  102. %AUTOEND{
  103.     footnote({オンライン･サインアップ中止処理中,,,♪});
  104.     display({\n☆突然ですが、ｵﾝﾗｲﾝ･ｻｲﾝｱｯﾌﾟの処理を中止しました☆\n\n});
  105.     display(VerLev|{は、万一のことを考えて、最初のアクセスでは\n\n});
  106.     display({登録されないように初期設定してあります。\n\n});
  107.     display({送信した内容に誤りがないか、念のため確認してください。\n\n});
  108.     SNDMSG({owata_f.snd});wait(1);
  109.     };
  110.  
  111. /*    受信文字列の時間待ち処理    */
  112. %WAITCHAR{
  113.     [sec,Waitchr,WaitcmdC]
  114.     wait    (sec,    {AbortOff},
  115.             Waitchr,WaitcmdC
  116.         );
  117.     };
  118.  
  119. /*    ｎ番目の部分文字列をとりだす関数    */
  120. %nth    {
  121.     [str,n,sep]
  122.     var    a    [256];    
  123.     var    m    [3];
  124.     a:=str;
  125.     m:=0;
  126.     case    (n<1,
  127.         {Yes},{im({})},
  128.         {No},
  129.         {loop    ({
  130.             m:=m+1;
  131.             case(m==n||a={},{Yes},{im({No})},
  132.                 {No},{a:=@body(a,sep);im({Yes})});
  133.             });
  134.          im(@head(a,sep));
  135.         });
  136.     };
  137.  
  138. /************************************************************************
  139. *    ダイヤリング開始処理                        *
  140. *************************************************************************/
  141. /*  type @p */
  142. %typeCNIF{
  143.     N2:=0;
  144.     loop    ({
  145.         type({C NIF\n});
  146.         wait    (Wtime2,{im({TimeOut})},
  147.             {HOST NAME?\n*},
  148.             {case    (N2<5,    {No},{im({RetryOver})},
  149.                     {Yes},{im({Yes})})},
  150.             {Clear NC 0\n},{type({off});callrd1;},
  151.             {Enter},{im({Connect})},
  152.             {本日は定期メンテナンス},{im({Maintenance})}
  153.             );
  154.         N2:=N2+1;
  155.         });
  156.     };
  157.  
  158. %Road2p    {
  159.     var    TELNO[20];
  160.     wait    (6,{type({@P\n})});
  161.     wait    (Wtime2,{im({TimeOut})},
  162.         {HOST NAME?\n*},{TELNO:=road2;typeCNIF});
  163.     };
  164.  
  165. /*  type .00+ and retry */
  166. %type00    {
  167.     var    TELNO[20];
  168.     N2:=0;
  169.     loop    ({
  170.         wait(2);
  171.         type({.00+});
  172.         wait    (Wtime2,{im({TimeOut})},
  173.             {71+},    {im({Maintenance})},
  174.             {46+},
  175.             {case    (N2<5,    {No},{im({RetryOver})},
  176.                     {Yes},{im({Yes})})},
  177.             {+\n00+},
  178.             {case    (N2<5,    {No},{im({RetryOver})},
  179.                     {Yes},{im({Yes})})},
  180.             {Enter},{TELNO:=@head(road1,{/});im({Connect})},
  181.             {Host is not in service},{im({Maintenance})},
  182.             {Please call again},{im({Maintenance})},
  183.             {本日は定期メンテナンス},{im({Maintenane})}
  184.             );
  185.         N2:=N2+1;
  186.         });
  187.     };
  188.  
  189. %callrd1{
  190.     N31:=N31+1;
  191.     road1:=@nth(ROAD1,N31,{;});
  192.     case    (road1={},{Yes},{N31:=0});
  193.     case    (N1>REDIAL,
  194.         {Yes},{im({RedialOver})},
  195.         {No},
  196.         {
  197.         case    (@head(road1,{/})={},
  198.             {Yes},{im({NoTelephone})},
  199.             {No},
  200.             {
  201.             N1:=N1+1;
  202.             display({\nＲＯＡＤ１に電話をします☆(^_^)/♪\n});
  203.             footnote(@head(road1,{/})|{ に電話中,,,♪});
  204.             case    (@nth(road1,2,{/})={1200},
  205.                 {Yes},
  206.                 {
  207.                 baud(1200);
  208.                 dialone({AT}|@nth(MODEM,1,{/})|{D}|DIAL|
  209.                     @nth(road1,1,{/}),type00,{im({Busy})});
  210.                 },
  211.                 {No},
  212.                 {
  213.                 case(@getchar(@nth(MODEM,2,{_}),1,4)={1200},
  214.                     {Yes},
  215.                     {
  216.                     baud(1200);
  217.                     dialone({AT}|@nth(MODEM,1,{/})|{D}|
  218.                         DIAL|@nth(road1,1,{/}),
  219.                         type00,{im({Busy})});
  220.                     },
  221.                     {No},
  222.                     {
  223.                     baud(2400);
  224.                     dialone({AT}|@nth(MODEM,1,{/})|
  225.                         @nth(MODEM,2,{/})|{D}|DIAL|
  226.                         @nth(road1,1,{/}),
  227.                         type00,{im({Busy})});
  228.                     });
  229.                 });
  230.             });
  231.         });
  232.     };
  233.  
  234. %callrd2{
  235.     N32:=N32+1;
  236.     road2:=@nth(ROAD2,N32,{;});
  237.     case    (road2={},{Yes},{N32:=0});
  238.     case    (N1>REDIAL,
  239.         {Yes},{im({RedialOver})},
  240.         {No},
  241.         {
  242.         case    (road2={},
  243.             {Yes},{im({NoTelephone})},
  244.             {No},
  245.             {
  246.             N1:=N1+1;
  247.             display({\nＲＯＡＤ２に電話をします☆(^_^)/♪\n});
  248.             footnote(road2|{ に電話中,,,♪});
  249.             case(@getchar(@nth(MODEM,2,{_}),1,4)={1200},
  250.                 {Yes},{baud(1200)},{No},{baud(2400)});
  251.             dialone({AT}|@nth(MODEM,1,{/})|@nth(MODEM,2,{/})|{D}|
  252.                 DIAL|road2,Road2p,{im({Busy})});
  253.             });
  254.         });
  255.     };
  256.  
  257. %DIALING{
  258.     N1:=0;
  259.     N31:=0;    N32:=0;    N33:=0;
  260.     loop    ({
  261.         case    (@callrd2,
  262.             {Connect},{im({No})},
  263.             {Maintenance},
  264.             {display({\nＮＩＦＴＹがメンテナンス中です\n});
  265.                 AbortOff;},
  266.             {RedialOver},
  267.             {Abort({\n}|REDIAL|{回かけても電話がつながりません\n})},
  268.             ,
  269.             {
  270.             case    (@callrd1,
  271.                 {Connect},{im({No})},
  272.                 {Maintenance},
  273.                 {display({\nＮＩＦＴＹがメンテナンス中です\n});
  274.                     AbortOff;},
  275.                 {RedialOver},
  276.                 {Abort({\n}|REDIAL|
  277.                 {回かけても電話がつながりません\n})},
  278.                 ,{im({Yes})}
  279.                 );
  280.             });
  281.         });
  282.     };
  283.  
  284. %RETRY{
  285.     footnote({受信ログの確認中,,,♪});
  286.     display({\n受信した内容は、マウスで画面をスクロールさせて、}|
  287.                 {遡って見ることが出来ます。\n\n});
  288.     display({確認が済みましたら、画面左下の［終了］}|
  289.                 {ボタンをクリックしてください。\n\n});
  290.     wait(3);
  291.     loop    ({footnote({終了},{b});
  292.         waitx();
  293.         case    (@xtype,
  294.             101,{im({No})},    201,{im({No})},
  295.             ,{im({Yes})}
  296.             );
  297.         });
  298.  
  299.     footnote({再度オンライン･サインアップの手続き選択中,,,♪});
  300.     SNDMSG({erande_f.snd});
  301.     select    ({再度ｵﾝﾗｲﾝ･ｻｲﾝｱｯﾌﾟを開始し、登録手続きを完了しますか？},
  302.         ,{},
  303.         { 登録手続きを続行(CONTINUE)},
  304.         {YesNo:={1}; #CONNECT.PLP;},
  305.         {      中     止    (STOP)  },
  306.         {});
  307.     };
  308.  
  309. /************************************************************************
  310. *        オートログイン処理                    *
  311. *************************************************************************/
  312. /*    サインアップ確認後の処理    */
  313. %SGNUP{
  314.     type(YesNo|{\n});
  315.     WAITCHAR(Wtime1,{1:登録する  2:登録中止）\n：},{type({1\n})});
  316.     WAITCHAR(Wtime2*2,{改行キーを押して下さい\n＞},{type({\n})});
  317.     wait    (999,{AbortOff;},
  318.         {Enter User-ID  --->},
  319.         {
  320.         footnote({ＩＤ番号入力処理中,,,♪});
  321.         case    (ID={},
  322.             {Yes},
  323.             {SNDMSG({nyuryo_f.snd});
  324.             ID:=@input({ＩＤ(最後は｢ﾘﾀｰﾝｷｰ↓｣)}|
  325.                 {を入力してネ☆});type(ID|{\n});}
  326.             );
  327.         },
  328.         {Error},{AbortOff}
  329.         );
  330.     wait    (999,{AbortOff},
  331.         {Enter Password --->},
  332.         {
  333.         footnote({パスワード入力処理中,,,♪});
  334.         case    (PW={},
  335.             {Yes},
  336.             {SNDMSG({nyuryo_f.snd});
  337.             PW:=@input({ﾊﾟｽﾜｰﾄﾞ(最後は｢ﾘﾀｰﾝｷｰ↓｣)}|
  338.                 {を入力してネ☆});type(PW|{\n});}
  339.             );
  340.         wait    (Wtime2*2,{AbortOff},
  341.             {Error},
  342.             {display({\nパスワードがおかしいよぉ～\n});AbortOff;},
  343.             {－－登録終了－－\n},
  344.             );
  345.         },
  346.         {Error},{display({\n番号が間違ってない？\n});AbortOff;}
  347.         );
  348.     display({\n☆オンライン・サインアップの手続きを完了しました☆\n});
  349.     stop;
  350.     };
  351.  
  352. /*    オートログイン処理    */
  353. %NIFLOGIN{
  354.     footnote(VerLev|{ 初期処理中,,,♪});
  355.     display(VerLev|{ の通信を開始します☆(^_^)/♪\n});
  356.     display({\nモデムの初期化を開始します☆(^_^)/♪\n\n});
  357.     type({ATZ\n});
  358.     wait    (Wtime1,{Abort({\nモデムがおかしいよぉ～\n}|BELL)},
  359.         {\nOK},{});
  360.     init;                    /* 各種初期設定 */
  361.     case    ((@head(ROAD1,{/})={} && ROAD2={}),
  362.         {Yes},{AbortOff},{No},{});
  363.     DIALING;
  364.     footnote({ＮＩＦＴＹ-Ｓｅｒｖｅ 接続処理中,,,♪});
  365.     WAITCHAR(Wtime1,{Connection-ID  --->},{type({SGN\n})});
  366.     wait    (Wtime1,{AbortOff;},
  367.         {Enter Serial # --->},
  368.         {
  369.         footnote({シリアル･ナンバーの入力処理中,,,♪});
  370.         case    (SERno={},
  371.             {Yes},  {SNDMSG({nyuryo_f.snd});
  372.                 SERno:=@input({ｼﾘｱﾙﾅﾝﾊﾞｰ(半角8文字)}|
  373.                 {(最後は｢ﾘﾀｰﾝｷｰ↓｣)を入力してネ☆});
  374.                 type(SERno|{\n})},
  375.             {No},    {type(SERno|{\n})}
  376.             );
  377.         },
  378.         {\n Serial # Error},{AbortOff}
  379.         );
  380.     wait    (Wtime1,{AbortOff;},
  381.         {Enter Agreement # -->},
  382.         {
  383.         footnote({アグリメント･ナンバーの入力処理中,,,♪});
  384.         case    (AGRno={},
  385.             {Yes},  {SNDMSG({nyuryo_f.snd});
  386.                 AGRno:=@input({ｱｸﾞﾘﾒﾝﾄﾅﾝﾊﾞｰ(半角8文字)}|
  387.                 {(最後は｢ﾘﾀｰﾝｷｰ↓｣)を入力してネ☆});
  388.                 type(AGRno|{\n});
  389.             footnote({オンライン･サインアップ処理中,,,♪})},
  390.             {No},    {type(AGRno|{\n});
  391.             footnote({オンライン･サインアップ処理中,,,♪})}
  392.             );
  393.         wait    (Wtime2,{AbortOff;},
  394.             {\n Agreement # Error},
  395.             {display({\n番号がおかしいよぉ～\n});AbortOff;},
  396.             {表示する  2:しない）\n：},
  397.             );
  398.         },
  399.         {Error},{display({\n番号が間違ってない？\n});AbortOff;}
  400.         );
  401.     };
  402.  
  403.     NIFLOGIN;
  404.     type({2\n});
  405.     WAITCHAR(Wtime1,{同意する  2:しない）\n：},{type({1\n})});
  406.     WAITCHAR(Wtime1,{氏名の入力（漢字で 8文字まで）\n},
  407.         {
  408.         footnote({氏名の入力処理中,,,♪});
  409.         case    (NAME={},
  410.             {Yes},  {SNDMSG({nyuryo_f.snd});
  411.                 NAME:=@input({氏名(漢字で８文字)}|
  412.                 {(最後は｢ﾘﾀｰﾝｷｰ↓｣)を入力してネ☆});
  413.                 type(NAME|{\n})},
  414.             {No},    {wait(1);type(NAME|{\n})}
  415.             );
  416.         });
  417.     WAITCHAR(Wtime1,{姓：ローマ字で20文字まで　例：YAMADA）\n},
  418.         {
  419.         footnote({氏（ローマ字）の入力処理中,,,♪});
  420.         case    (Lname={},
  421.             {Yes},  {SNDMSG({nyuryo_f.snd});
  422.                 Lname:=@input({氏(ﾛｰﾏ字で20文字)}|
  423.                 {(最後は｢ﾘﾀｰﾝｷｰ↓｣)を入力してネ☆});
  424.                 type(Lname|{\n})},
  425.             {No},    {wait(1);type(Lname|{\n})}
  426.             );
  427.         });
  428.     WAITCHAR(Wtime1,{名：ローマ字で20文字まで　例：TARO）\n},
  429.         {
  430.         footnote({名（ローマ字）の入力処理中,,,♪});
  431.         case    (Fname={},
  432.             {Yes},  {SNDMSG({nyuryo_f.snd});
  433.                 Fname:=@input({名(ﾛｰﾏ字で20文字)}|
  434.                 {(最後は｢ﾘﾀｰﾝｷｰ↓｣)を入力してネ☆});
  435.                 type(Fname|{\n})},
  436.             {No},    {wait(1);type(Fname|{\n})}
  437.             );
  438.         });
  439.     footnote({オンライン･サインアップ確認処理中,,,♪});
  440.     WAITCHAR(Wtime1,{1:OK  2:修正  3:登録中止)\n：},{type({1\n})});
  441.     WAITCHAR(Wtime1,{アフリカ・オセアニア)\n：},{type({1\n})});
  442.     WAITCHAR(Wtime1,{1:OK  2:NG)\n：},{type({1\n})});
  443.     WAITCHAR(Wtime1,{ 47:沖繩)\n：},
  444.         {
  445.         footnote({都道府県名の番号入力処理中,,,♪});
  446.         case    (CITY={},
  447.             {Yes},  {SNDMSG({nyuryo_f.snd});
  448.                 CITY:=@input({都道府県名のｺｰﾄﾞ番号}|
  449.                 {(最後は｢ﾘﾀｰﾝｷｰ↓｣)を入力してネ☆});
  450.                 type(CITY|{\n})},
  451.             {No},    {type(CITY|{\n})}
  452.             );
  453.         });
  454.     WAITCHAR(Wtime1,{ 横浜市，葛飾郡，千代田区等)\n},
  455.         {
  456.         footnote({市郡名の入力処理中,,,♪});
  457.         case    (myCITY={},
  458.             {Yes},  {SNDMSG({nyuryo_f.snd});
  459.                 myCITY:=@input({市郡名(漢字で５文字)}|
  460.                 {(最後は｢ﾘﾀｰﾝｷｰ↓｣)を入力してネ☆});
  461.                 type(myCITY|{\n})},
  462.             {No},    {wait(1);type(myCITY|{\n})}
  463.             );
  464.         });
  465.     WAITCHAR(Wtime1,{23区のみ区名まで　例:YOKOHAMASHI,KATUSHIKAGUN)\n},
  466.         {
  467.         footnote({市郡名（ローマ字）の入力処理中,,,♪});
  468.         case    (RmyCITY={},
  469.             {Yes},  {SNDMSG({nyuryo_f.snd});
  470.                 RmyCITY:=@input({市郡名(ﾛｰﾏで32字)}|
  471.                 {(最後は｢ﾘﾀｰﾝｷｰ↓｣)を入力してネ☆});
  472.                 type(RmyCITY|{\n})},
  473.             {No},    {wait(1);type(RmyCITY|{\n})}
  474.             );
  475.         });
  476.     WAITCHAR(Wtime1,{20文字以内　例 :南大井6-26-1)\n},
  477.         {
  478.         footnote({所番地の入力処理中,,,♪});
  479.         case    (myBANCHI={},
  480.             {Yes},  {SNDMSG({nyuryo_f.snd});
  481.                 myBANCHI:=@input({所番地(20文字)}|
  482.                 {(最後は｢ﾘﾀｰﾝｷｰ↓｣)を入力してネ☆});
  483.                 type(myBANCHI|{\n})},
  484.             {No},    {wait(1);type(myBANCHI|{\n})}
  485.             );
  486.         });
  487.     WAITCHAR(Wtime1,{20文字以内　例 :大森ベルポートＡ館)\n},
  488.             {wait(1);type(myKATAGAKI|{\n})});
  489.     WAITCHAR(Wtime1,{30文字以内　例:26-1 Minamioi 6-chome)\n},
  490.         {
  491.         footnote({所番地（ローマ字）の入力処理中,,,♪});
  492.         case    (RmyBANCHI={},
  493.             {Yes},  {SNDMSG({nyuryo_f.snd});
  494.                 RmyBANCHI:=@input({所番地(ﾛｰﾏ字で30文字)}|
  495.                 {(最後は｢ﾘﾀｰﾝｷｰ↓｣)を入力してネ☆});
  496.                 type(RmyBANCHI|{\n})},
  497.             {No},    {wait(1);type(RmyBANCHI|{\n})}
  498.             );
  499.         });
  500.     WAITCHAR(Wtime1,{30文字以内　例:OMORI BELLPORT A)\n},
  501.             {wait(1);type(RmyKATAGAKI|{\n})});
  502.     WAITCHAR(Wtime1,{郵便番号（例：102 ）\n：},
  503.         {
  504.         footnote({郵便番号の入力処理中,,,♪});
  505.         case    (YUBINno={},
  506.             {Yes},  {SNDMSG({nyuryo_f.snd});
  507.                 YUBINno:=@input({郵便番号}|
  508.                 {(最後は｢ﾘﾀｰﾝｷｰ↓｣)を入力してネ☆});
  509.                 type(YUBINno|{\n})},
  510.             {No},    {type(YUBINno|{\n})}
  511.             );
  512.         });
  513.  
  514.     footnote({電話番号の入力処理中,,,♪});
  515.     WAITCHAR(Wtime1,{市外局番から入力　例：03-5471-5800）\n：},
  516.             {type(TELno|{\n})});
  517.     footnote({オンライン･サインアップ確認処理中,,,♪});
  518.     WAITCHAR(Wtime1,{1:OK  2:修正  3:登録中止)\n：},{type({1\n})});
  519.     WAITCHAR(Wtime1,{勤務先 (30文字以内)\n},
  520.         {
  521.         case    (OFFICE={},
  522.             {Yes},  {wait(1);type({\n})},
  523.             {No},
  524.             {
  525.             footnote({勤務先の入力処理中,,,♪});
  526.             wait(1);type(OFFICE|{\n});
  527.             WAITCHAR(Wtime1,{部課名 (30文字以内)\n},
  528.             {
  529.             footnote({部課名の入力処理中,,,♪});
  530.             case    (KAKARI={},
  531.                 {Yes},  {SNDMSG({nyuryo_f.snd});
  532.                     KAKARI:=@input({部課名(30文字)}|
  533.                     {(最後は｢ﾘﾀｰﾝｷｰ↓｣)を入力してネ☆});
  534.                     type(KAKARI|{\n})},
  535.                 {No},    {wait(1);type(KAKARI|{\n})}
  536.                 );
  537.             });
  538.             WAITCHAR(Wtime1,
  539.             {市外局番から入力  例：03-5471-5800)\n：},
  540.             {
  541.             footnote({勤務先電話番号の入力処理中,,,♪});
  542.             case    (OFFICEno={},
  543.                 {Yes},  {SNDMSG({nyuryo_f.snd});
  544.                     OFFICEno:=@input({勤務先電話番号}|
  545.                     {(最後は｢ﾘﾀｰﾝｷｰ↓｣)を入力してネ☆});
  546.                     type(OFFICEno|{\n})},
  547.                 {No},    {type(OFFICEno|{\n})}
  548.                 );
  549.             });
  550.             footnote({オンライン･サインアップ確認処理中,,,♪});
  551.             WAITCHAR(Wtime1,{1:OK  2:修正  3:登録中止)\n：},
  552.             {type({1\n})});
  553.             });
  554.         });
  555.  
  556.     case    (SERno={NIF00777} && AGRno={NIFTYSGN},
  557.         {Yes},  {},
  558.         {No},
  559.         {
  560.         footnote({コンピュサーブＩＤ取得の入力処理中,,,♪});
  561.         WAITCHAR(Wtime1,
  562.             {1:取得する　2:しない）\n:},
  563.             {
  564.             case    (ComID={1},
  565.                 {Yes},
  566.                 {
  567.                 type(ComID|{\n});
  568.                 WAITCHAR(Wtime1,{1:OK  2:NG）\n:},
  569.                 {type({1\n})});
  570.                 WAITCHAR(Wtime1,{表示する  2:しない）\n：},
  571.                 {type({2\n})});
  572.                 WAITCHAR(Wtime1,{同意する  2:しない）\n：},
  573.                 {type({1\n})});
  574.                 },
  575.                 {No},
  576.                 {
  577.                 type(ComID|{\n});
  578.                 WAITCHAR(Wtime1,{1:OK  2:NG）\n:},
  579.                 {type({1\n})});
  580.                 });
  581.             });
  582.         });
  583.     WAITCHAR(Wtime1,{13:NIFTY カード)\n：},
  584.         {footnote({クレジットカード種別の入力処理中,,,♪});
  585.         case    (CLEDIT={},
  586.             {Yes},  {SNDMSG({nyuryo_f.snd});
  587.                 CLEDIT:=@input({ｸﾚｼﾞｯﾄｶｰﾄﾞ種別}|
  588.                 {(最後は｢ﾘﾀｰﾝｷｰ↓｣)を入力してネ☆});
  589.                 type(CLEDIT|{\n});},
  590.             {No},    {type(CLEDIT|{\n});}
  591.             );
  592.         });
  593.  
  594.     WAITCHAR(Wtime1,{会員番号（例：XXXX XXXX XXXX XXXX）\n：},
  595.         {
  596.         footnote({会員番号の入力処理中,,,♪});
  597.         case    (MEMBER={},
  598.             {Yes},  {SNDMSG({nyuryo_f.snd});
  599.                 MEMBER:=@input({会員番号}|
  600.                 {(最後は｢ﾘﾀｰﾝｷｰ↓｣)を入力してネ☆});
  601.                 type(MEMBER|{\n})},
  602.             {No},    {type(MEMBER|{\n})}
  603.             );
  604.         });
  605.     WAITCHAR(Wtime1,{カード有効期限 (例 : 11/96)\n：},
  606.         {
  607.         footnote({有効期限の入力処理中,,,♪});
  608.         case    (LIMIT={},
  609.             {Yes},  {SNDMSG({nyuryo_f.snd});
  610.                 LIMIT:=@input({有効期限を入力してネ☆}|
  611.                 {（例：11/96）}); type(LIMIT|{\n})},
  612.             {No},    {type(LIMIT|{\n})}
  613.             );
  614.         });
  615.     footnote({オンライン･サインアップ確認処理中,,,♪});
  616.     WAITCHAR(Wtime1,{1:OK  2:修正  3:登録中止)\n：},{type({1\n})});
  617.     WAITCHAR(Wtime1,{ 12:その他)\n：},
  618.         {
  619.         footnote({ワープロ／パソコンメーカ名の番号入力処理中,,,♪});
  620.         case    (MAKER={},
  621.             {Yes},  {SNDMSG({nyuryo_f.snd});
  622.                 MAKER:=@input({ﾜｰﾌﾟﾛ/ﾊﾟｿｺﾝ ﾒｰｶ番号}|
  623.                 {(最後は｢ﾘﾀｰﾝｷｰ↓｣)を入力してネ☆});
  624.                 type(MAKER|{\n})},
  625.             {No},    {type(MAKER|{\n})}
  626.             );
  627.         });
  628.     WAITCHAR(Wtime1,{機種（漢字で８文字以内）\n:},
  629.         {
  630.         footnote({ワープロ／パソコン機種名の入力処理中,,,♪});
  631.         case    (MACHINE={},
  632.             {Yes},  {SNDMSG({nyuryo_f.snd});
  633.                 MACHINE:=@input({機種名(漢字で８文字)}|
  634.                 {(最後は｢ﾘﾀｰﾝｷｰ↓｣)を入力してネ☆});
  635.                 type(MACHINE|{\n})},
  636.             {No},    {type(MACHINE|{\n})}
  637.             );
  638.         });
  639.     WAITCHAR(Wtime1,{画面の最大表示行数：9～99）\n：},
  640.         {
  641.         footnote({１画面での最大表示行数の入力処理中,,,♪});
  642.         case    (LINEno={},
  643.             {Yes},  {SNDMSG({nyuryo_f.snd});
  644.                 LINEno:=@input({画面最大表示行数(9～99)}|
  645.                 {(最後は｢ﾘﾀｰﾝｷｰ↓｣)を入力してネ☆});
  646.                 type(LINEno|{\n})},
  647.             {No},    {type(LINEno|{\n})}
  648.             );
  649.         });
  650.     footnote({オンライン･サインアップ確認処理中,,,♪});
  651.     WAITCHAR(Wtime1,{1:非公開　改行のみ:公開)\n:},{type(OPEN|{\n})});
  652.     WAITCHAR(Wtime1,{1:OK  2:修正  3:登録中止)\n：},
  653.         {case    (YesNo={1},
  654.             {Yes},  {SGNUP;},
  655.             {No},    {NIFoff; AUTOEND; RETRY;}
  656.             );
  657.         });
  658.  
  659.